(term-emulate-terminal): Perform redisplay after the process filter

has finished running.

diff --git a/lisp/term.el b/lisp/term.el
index 135f74d4f52c726bfdea4e6f98abdb276c35315f..4fe3c4d0532c5244c865eae4d665e9a344f2a3ce 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -3049,7 +3049,11 @@ See `term-prompt-regexp'."
            (forward-line (- term-buffer-maximum-size))
            (beginning-of-line)
            (delete-region (point-min) (point))))
-       (set-marker save-marker nil)))))
+       (set-marker save-marker nil)))
+    ;; This might be expensive, but we need it to handle something
+    ;; like `sleep 5 | less -c' in more-or-less real time.
+    (when (get-buffer-window (current-buffer))
+      (redisplay))))
 
 (defun term-handle-deferred-scroll ()
   (let ((count (- (term-current-row) term-height)))